home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
aed243a.zip
/
R-PCETOG.MRG
< prev
next >
Wrap
Text File
|
1990-06-10
|
6KB
|
179 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBS-PC.BAS to produce R-PCETOG.BAS
* RBBS-PC.BAS: Date 5-26-1990 Size 156425 bytes
* ------------[ Created 06-10-1990 02:02:27 ]------------
* REPLACING old line(s) by new
760 GOSUB 755
CALL AllCaps (ZWasZ$)
LSET ZPswd$ = ZWasZ$
CALL QuickTPut1 ("Please REMEMBER your password")
ZUserTextColor = 37
ZTempSecLevel = ZUserSecLevel
CALL Protocol
ZUserXferDefault$ = "N"
ZProtoPrompt$ = "None"
IF ZNewUserSetsDefaults THEN _
GOSUB 42950 : _
ZBypassTimeCheck = ZTrue : _
GOSUB 43000 : _
ZBypassTimeCheck = ZFalse : _
CALL Graphic (ZUserGraphicDefault$,ZFileName$) : _
GOSUB 42805 : _
* ------[ first line different ]------
GOSUB 42700 : _
GOSUB 42750 _
ELSE ZUpperCase = ZFalse : _
ZHiLiteOff = ZTrue : _
CALL SetGraphic (0,ZUserGraphicDefault$) : _
ZNulls = ZFalse : _
ZFullScreenEditor = ZFalse
ZPageLength = ZPageLengthDef
GOSUB 12900
GOSUB 5135
CALL DefaultU
* REPLACING old line(s) by new
1500 IF ZAnsIndex < ZLastIndex THEN _
GOTO 1510
* ------[ first line different ]------
ZOutTxt$ = "A)utodwnld B)ullet C)ase E)ditor F)ile H)ilite"
CALL ColorPrompt (ZOutTxt$)
CALL QuickTPut1 (ZOutTxt$)
ZOutTxt$ = "L)ine feeds N)ulls T)urboKey X)pert !)bell"
CALL ColorPrompt (ZOutTxt$)
CALL QuickTPut1 (ZOutTxt$)
ZOutTxt$ = "Toggle which options on/off?" + ZPressEnter$
* REPLACING old line(s) by new
1510 GOSUB 12930
IF ZWasQ=0 THEN _
RETURN
ZWasZ$ = ZUserIn$(ZAnsIndex)
CALL AllCaps (ZWasZ$)
* ------[ first line different ]------
ZFF = INSTR("ABCFHLNTX!E",ZWasZ$)
IF ZFF < 1 THEN _
GOTO 1500
CALL Toggle (ZFF)
GOSUB 12997
GOTO 1500
'
' **** I - COMMAND FROM MAIN MENU (DISPLAY INITIAL WELCOME) ***
'
* REPLACING old line(s) by new
* ------[ first line different ]------
2100 IF NOT ZFullScreenEditor OR ZGetExtDesc THEN _
GOTO 2120
* INSERTING new line(s)
2110 CALL Ansied (MsgTo$, OrigSubject$, MsgLockLines)
I = ZSubParm
CALL SkipLine(1)
IF I = -2 THEN ' Sleep Disconnect
GOTO 10590
ELSEIF I = -1 THEN ' Lost Carrier
GOTO 10595
ELSEIF I = 1 THEN ' Save Message
GOTO 3400
ELSEIF I = 2 THEN ' Abort Message
GOTO 2430
END IF
2120 ZOutTxt$ = "Type " + _
ZMsgHeader$ + _
STR$(ZMaxMsgLines) + _
" lines max" + _
ZPressEnter$
GOSUB 12975
GOSUB 3200
* REPLACING old line(s) by new
4626 ZWasZ$ = "L"
WasL = 1
* ------[ first line different ]------
IF ZFullScreenEditor THEN
GOSUB 2110
ELSE
IF ZLinesInMsg >= ZMaxMsgLines THEN _
CALL QuickTPut ("Msg cannot exceed" + _
STR$(ZMaxMsgLines) + " lines! ",0)
IF NOT MsgFwd THEN _
CALL QuickTPut1 ("C continues reply. Please 1st delete unneeded lines (eg. d 1 5)")
GOSUB 3200
GOSUB 3020
GOSUB 2300
END IF
GOTO 4628
* REPLACING old line(s) by new
5410 CALL Toggle(-9)
GOSUB 43020
ZFF = INSTR(ZDefaultXfer$,ZUserXferDefault$)
CALL Toggle(-5)
GOSUB 42810
CALL Toggle(-3)
CALL Toggle(-6)
CALL Toggle(-7)
CALL Toggle(-10)
CALL Toggle(-2)
CALL Toggle(-4)
CALL Toggle(-8)
CALL Toggle(-1)
* ------[ first line different ]------
CALL Toggle(-11)
IF ZRestrictByDate AND ZDaysInRegPeriod > 0 THEN _
IF ZUserSecLevel > ZExpiredSec THEN _
CALL QuickTPut1 ("Registration expires " + ZExpirationDate$)
RETURN
'
' ***** B - COMMAND FROM UTILITY MENU (300 TO 450 BAUD CHANGE) ****
'
* REPLACING old line(s) by new
9510 UserOptions = CVI(MID$(ZUserOption$,9,2))
ZPromptBell = (UserOptions AND 1) > 0
ZExpertUser = (UserOptions AND 2) > 0
CALL SetExpert
ZNulls = (UserOptions AND 4) > 0
ZUpperCase = (UserOptions AND 8) > 0
ZLineFeeds = (UserOptions AND 16) > 0
ZCheckBulletLogon = (UserOptions AND 32) > 0
ZSkipFilesLogon = (UserOptions AND 64) > 0
ZAutoDownDesired = (UserOptions AND 128) > 0
ZReqQuesAnswered = (UserOptions AND 256) > 0
ZMailWaiting = (UserOptions AND 512) > 0
WasX = (UserOptions AND 1024 ) > 0
CALL SetHiLite (NOT WasX)
IF NOT ZHiLiteOff THEN _
CALL QuickTPut (ZEmphasizeOff$,0)
ZTurboKeyUser = (UserOptions AND 2048) > 0
ZTurboKey = ZFalse
GOSUB 11480
* ------[ first line different ]------
ZFullScreenEditor = (UserOptions AND 4096) > 0
ZPageLength = ASC(MID$(ZUserOption$,13,1))
IF SubBoard THEN _
GOTO 9520
WasX$ = ZEchoer$
ZEchoer$ = MID$(ZUserOption$,14,1)
IF INSTR("ICR",ZEchoer$) = 0 THEN _
ZEchoer$ = "R"
IF WasX$ <> ZEchoer$ THEN _
GOSUB 9525
CALL SetEcho (ZEchoer$)
* REPLACING old line(s) by new
42700 CALL SkipLine (1)
CALL QuickTPut1 ("TurboKey: act on 1 char command without waiting for [ENTER]")
ZOutTxt$ = "Want TurboKeys (Y/[N])"
GOSUB 12999
ZTurboKeyUser = NOT ZYes
CALL Toggle (8)
RETURN
'
* ------[ first line different ]------
' * EDITOR SET FOR NEW USERS
'
* INSERTING new line(s)
42750 ZOutTxt$ = "Use the Full Screen editor for messages (Y/[N])"
GOSUB 12999
ZFullScreenEditor = NOT ZYes
CALL Toggle (11)
RETURN
'
' * F - COMMAND FROM UTILITY MENU (FILE Transfer DEFALUT MODE)
' * FILE Transfer DEFAULT SET FOR NEW USERS
'